perl scalar reference